home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / windowAccess.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-10  |  982 b   |  37 lines  |  [TEXT/3PRM]
  1. definition module windowAccess;
  2.  
  3.  
  4. //    Version 0.8 to 1.0
  5.  
  6.  
  7. import    ioState;
  8.  
  9.  
  10. ::    DrawMode :== Int;
  11.  
  12.  
  13. DrawNoControls        :== 0;
  14. HasControls            :== 1;
  15. HasNoControls        :== 2;
  16.  
  17. ScrollBarWidth        :== 15;
  18. TitleBarWidth        :== 20;
  19. MenuBarWidth        :== 20;
  20. WindowScreenBorder    :== 4;
  21.  
  22.  
  23. WindowSystemState_WindowHandles    :: !(DeviceSystemState s) -> WindowHandles    s;
  24.  
  25. Window_size            :: !WindowPtr            !Toolbox    -> (!Point, !Toolbox);
  26. WindowGetFrameSize    :: !(WindowHandle s)    !Toolbox    -> (!Point, !Toolbox);
  27. UpdateDrawMode        :: !(WindowDef s (IOState s))        -> DrawMode;
  28. WindowDefGetDrawMode:: !(WindowDef s (IOState s))        -> DrawMode;
  29.  
  30. WindowGetPtr        :: !Window                            -> WindowPtr;
  31. WindowHandleGetPtr    :: !(WindowHandle s)                -> WindowPtr;
  32. DummyWindowHandle    :: WindowPtr                        -> WindowHandle s;
  33.  
  34. ChangeAllWindowPtrs    :: !(WindowPtr -> Toolbox -> Toolbox) !(IOState s) -> IOState s;
  35. ChangeWindowPtrs    :: !(WindowPtr -> Toolbox -> Toolbox) ![WindowHandle s] !Toolbox -> Toolbox;
  36. CloseWindow            :: !(IOState s)    -> IOState s;
  37.